home *** CD-ROM | disk | FTP | other *** search
/ Chip 2002 July / 07_02.iso / software / xq-xsetup / files / setup.exe / {app} / plugins / XQ Desktop System Settings.xpl < prev    next >
Text File  |  2001-04-13  |  2KB  |  55 lines
  1. "FILE"="Xteq Systems X-Setup Plugin 6.0"
  2. "TYPE"="6"
  3. "COUNT"="2"
  4. "UIPATH"="Appearance\Desktop\Options"
  5. "NAME"="System Desktop Options"
  6. "VERSION"="1.55"
  7. "LANGUAGE"="VBScript"
  8. "TEXT 1"="Show "My Network Places" on desktop"
  9. "TEXT 2"="Disable entire desktop (!)"
  10. "WARNING"="1"
  11. "DESCRIPTION 1"="!WARNING! Hiding the My Network Places can lead to serious problems (for example with UNC names). Deactivate this option ONLY if you are sure that you don't need any network functionality". !WARNING!"
  12. "DESCRIPTION 2"="If "Disable entire desktop" option is set, the entire desktop is disabled. This means that NO ICONS WHATSOEVER are displayed on the desktop."
  13. "DESCRIPTION 3"="Note: In Windows 95, 98, and NT 'My Network Places' is called 'Network Neighborhood."
  14. "AUTHOR"="Xteq Systems"
  15. "CONTACTURL"="http://www.xteq.com"
  16. "COPYRIGHT"="Copyright ⌐ Xteq Systems - All Rights Reserved"
  17. "COMMENT 1"=" "
  18.  
  19. sP="HKCU\Software\Microsoft\Windows\CurrentVersion\Policies\Explorer\"
  20. sPath="HKCU\Software\Microsoft\Windows\CurrentVersion\Policies\Explorer\NoDesktop"
  21.  
  22. Sub Plugin_Initialize 
  23.  i=RegReadValue(sp&"NoNetHood")
  24.  if IsEmpty(i) or i="00000000" then SetUIElement 1,true
  25.  
  26.  i=RegReadValue(sPath)
  27.  if IsEmpty(i)=false then
  28.     If i=1 then Call SetUIElement(2,true) 
  29.  end if  
  30. End Sub
  31.  
  32. Sub Plugin_Apply(ElementIndex,ElementSubIndex)
  33.  b=GetUIElement(1)
  34.  if b=true then
  35.     Call RegWriteValue(sp&"NoNetHood","00000000",3)
  36.  else
  37.     Call RegWriteValue(sp&"NoNetHood","01000000",3)
  38.  end if
  39.  
  40.  b=GetUIElement(2)
  41.  if b=true then
  42.     Call RegWriteValue(sPath,1,2)
  43.  else
  44.     s=RegReadValue(sPath)
  45.     if IsEmpty(s)=false then
  46.        Call RegDeleteValue(sPath)
  47.     end if
  48.  end if
  49.  
  50.  Call Restart()
  51. End Sub
  52.  
  53. Sub Plugin_Terminate 
  54. End Sub
  55.